home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / amircurlshow / urlshow.amirx < prev    next >
Text File  |  1997-03-21  |  3KB  |  108 lines
  1. /* URLShow script for use with AmIRC 1.x */ Version='1.06'/*
  2. // Written by Deryk Robosson 3.3.97
  3. //
  4. // newlook@ameritech.net newlook on #amiga IRC (EfNet/IRCnet)
  5. //
  6. // 03.03.97 (1.01) Added command template to help
  7. //                 Suggested by Xcal
  8. //                 Added LIST support
  9. //                 Corrected a bug when testing for text
  10. //                 Corrected problem with saving site, some
  11. //                 sites are case sensitive.
  12. // 04.03.97 (1.03) Correct problem when parsing the list. A
  13. //                 search for AT would result in a hit to
  14. //                 umueller - http://www.lysator.lie.se/
  15. //                 note the 'AT' in lysator. Bug reported by SimD
  16. // 10.03.97 (1.04) Prettied up the help/ver info a bit
  17. // 18.03.97 (1.05) Cleaned up the code.
  18. // 21.03.97 (1.06) Corrected problem with LIST not working.
  19. */
  20. bold = d2c(2)
  21. underline = '1F'x
  22. options results
  23. parse arg param
  24.  
  25. /* data file to be used. edit the path as needed */
  26. datpath = 'amitcp:amirc/rexx/URLShow.dat'
  27.  
  28. temp = param
  29. param = strip(upper(param))
  30. if param ~= '' then do
  31.     parse var param site' 'therest
  32.     if command ~= '' then parse var therest command' 'user
  33. end
  34. if param = ''|param='VER' then signal version
  35. if param = 'HELP' then signal help
  36. if param = 'LIST' then signal listsites
  37. if site = 'ADD' then do
  38.     parse var temp site' 'therest
  39.     if open(file,datpath,'A') then writeln(file,therest);
  40.     call echo('Site added.')
  41.     call CleanExit()
  42. end
  43.  
  44. if open(file,datpath,'R') then do
  45.     do until eof(file)
  46.         line = ReadLn(file)
  47.         parse var line name'-'text
  48.         if(pos(site,upper(name))) ~= 0 then do
  49.             select
  50.                 when command = 'SAY' then do
  51.                     'SAY 'line
  52.                      call CleanExit()
  53.                 end
  54.                 when command = 'SHOW' then do
  55.                     'SAY /NOTICE' user||' '||line
  56.                      call CleanExit()
  57.                 end
  58.                 otherwise
  59.                     if command = '' then do
  60.                         call echo(line)
  61.                         call CleanExit()
  62.                     end
  63.             end
  64.         end
  65.     end
  66.     'ECHO No information on 'site
  67. end
  68.  
  69. CleanExit:
  70. close(file)
  71. exit
  72.  
  73. listsites:
  74. if open(file,datpath,'R') then do
  75.     do until eof(file)
  76.         line = ReadLn(file)
  77.         call echo(line)
  78.     end
  79. end
  80. exit
  81.  
  82. version:
  83.     call echo(bold'URLShow.AMIRX'bold' Version 'bold||version)
  84.     call echo('Read the top of URLShow.AMIRX script for history.')
  85.     call echo(bold'©1997'bold' Deryk Robosson 'bold'(newlook)'bold' - [newlook@ameritech.net]')
  86.     call echo('Type /<alias> help for command information')
  87. exit
  88.  
  89. help:
  90.     call echo(bold'URLShow.AMIRX'bold' Help')
  91.     call echo(bold'ADD - 'bold'Adds a site to the data file')
  92.     call echo(bold'SAY - 'bold'ECHOs output to window')
  93.     call echo(bold'VER - 'bold'displays script version')
  94.     call echo(bold'SHOW - 'bold'displays outout to user')
  95.     call echo(bold'HELP - 'bold'displays this file')
  96.     call echo(bold'LIST - 'bold'displays entire list')
  97.     call echo(bold||underline'EXAMPLES:'bold||underline)
  98.     call echo(bold'/URLShow site 'bold'to see output yourself')
  99.     call echo(bold'/URLShow site SAY 'bold'to show output to channel')
  100.     call echo(bold'/URLShow site SHOW usernick 'bold'to show output to a user')
  101.     call echo(bold'/URLShow LIST 'bold'for site list')
  102. exit
  103.  
  104. echo: procedure
  105.     parse arg a
  106.     'echo P='d2c(27)'b«URLShow» 'a
  107. return 1
  108.